home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Symbols / s-transpose-section < prev    next >
Lisp/Scheme  |  1998-08-11  |  484b  |  15 lines
  1. s-transpose-section transpose-value section pattern 
  2.  
  3. 0-based
  4.  
  5. Use this function to map transpositions across sections of a multiple-list of symbol patterns. 
  6.  
  7. (setq symbols
  8.       '((a b c d) (e f g h) (i j k l) 
  9.         (a b c d) (e f g h) (i j k l)))
  10.  
  11. (s-transpose-section '(1 2 2 4 4) '(1 2 3 4 5) symbols)
  12. => ((a b c d) (f g h i) (k l m n) (c d e f) (i j k l) (m n o p))
  13.  
  14. (s-transpose-section '(1 2) '(3 4) symbols)
  15. => ((a b c d) (e f g h) (i j k l) (b c d e) (g h i j) (i j k l))